#!/usr/bin/env perl
use 5.10.0;
use strict;

my %users = (
    'fred'   => 'flintstone',
    'barney' => 'rubble',
    'wilma'  => 'flintstone'
);
#读入用户指定的名字并且汇报响应的姓。
chomp(my $name = <STDIN>);
print "That's $name $users{$name}.\n";
